home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
014
/
protect.arc
/
UNPROT.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-10-31
|
1KB
|
30 lines
100 ' -- UNPROT.BAS (DOS 2.0) -- restores files to normal -- By Doug Lankshear
110 Y=0
120 FOR I = 1 TO 80:READ X:Y=Y+X:NEXT I
130 IF Y = 7235 THEN GOTO 190
140 PRINT "Error in data statements"
150 PRINT "Correct and restart"
160 END
170 '
180 '
190 RESTORE
195 PRINT "Writing UNPROT.COM to disk in drive A: . One moment please."
200 OPEN "UNPROT.COM" FOR OUTPUT AS #1
210 FOR I = 1 TO 80
220 READ X
230 PRINT #1,CHR$(X);
240 NEXT I
250 CLOSE #1
260 PRINT "UNPROT.COM has been written to disk in drive A: . Enjoy."
270 END
280 DATA 190,128,0,254,4,138,28,136
290 DATA 0,184,0,67,185,0,0,186
300 DATA 130,0,205,33,60,2,117,10
310 DATA 180,9,186,48,1,205,33,235
320 DATA 9,144,128,225,254,184,1,67
330 DATA 205,33,195,0,0,0,0,0
340 DATA 66,97,100,32,112,97,116,104
350 DATA 110,97,109,101,32,111,114,32
360 DATA 102,105,108,101,32,110,111,116
370 DATA 32,102,111,117,110,100,13,36